SELE 1
set colo to bg+/b,w+/n
@ 10,1 CLEA TO 23,78
@ 10,  2  SAY "CODE          DESCRIPTION AND PACKAGING        MAXIMUM   MINIMUM   PHYSICAL"
@ 11, 50  SAY "LEVEL     LEVEL     BALANCE "
@  5, 67  SAY DATE()
@ 16,  3  SAY "RE-ORDER (Y/N) :"
@ 12,  2  TO 12, 77
@ 10,  7  TO 14,  7
@ 10, 48  TO 14, 48
@ 10, 58  TO 14, 58
@ 10, 68  TO 14, 68
@ 15,  1  TO 17, 22    DOUBLE
OKK=.T.
NDT='N'
ord='y'
num=0
pric=0
qant=0
valu=0
disc=0
netpric=0
*suppcod=space(4)
*suppnam=space(24)
set colo to bg+/b,w+/n
UL='Y'
BACK='N'

KODE=&CODEMAC
NAME=&NAMEMAC
TIPE=&TYPEMAC
QANT=&QANTMAC
UNIT=&UNITMAC
BUYUNIT=BUY_UNIT
DO PUR_SP_C
IF BACK='Y'
   RETURN
ENDIF
if ord='Y'
*   DO PUR_SP_D
*   IF OKK=.F.
*      RETURN
*   ELSE
      DO PUR_SP_E
*   ENDIF
endif
RETURN

